Load data
df <- read.table('../../../output/first_try/report/summary_table.txt', header = T)
df$rownum <- 1 : nrow(df)
df.sub <- df[df$motif_qval < 0.05 & df$r2 > 0.5, ]
df.sub$strand <- as.character(df.sub$strand)
df.sub$strand[df.sub$strand == '-'] <- 'negative'
df.sub$strand[df.sub$strand == '+'] <- 'positive'
row.names(df.sub) <- NULL
motif_logo_prefix <- '../../../output/first_try/report/motif_logo/'
mash_plot_prefix <- '../../../output/first_try/report/mash_plot//mash__idx'
for(i in 1 : nrow(df.sub)) {
motif_logo <- paste0(motif_logo_prefix, df.sub$dbname[i], '__', df.sub$motif_id[i], '.png')
mash_plot <- paste0(mash_plot_prefix, df.sub$idx[i], '.png')
cat('#', as.character(df.sub$gene_name[i]), as.character(df$motif_id[i]), '\n', '\n')
df.show <- df.sub[, - which(colnames(df.sub) %in% c('idx', 'motif_from', 'motif_matched_sequence', 'motif_qval', 'dbname', 'rownum'))]
pander(df.show[i, ])
img1 <- rasterGrob(as.raster(readPNG(motif_logo)), interpolate = FALSE)
img2 <- rasterGrob(as.raster(readPNG(mash_plot)), interpolate = FALSE)
grid.arrange(img1, img2, ncol = 2)
# cat(motif_logo, mash_plot, '\n')
# df.sub[i, ] %>% kable(format = "html", col.names = colnames(df.sub)) %>%
# kable_styling() %>%
# kableExtra::scroll_box(width = "100%", height = "200px")
cat('\n', '\n')
}
TMA7 COT2_HUMAN.H11MO.1.A
| TMA7 |
ENSG00000232112 |
3_48479207_C_T_b37 |
3_48481647_G_A_b37 |
0.9998 |
SP1_HUMAN.H11MO.1.A |
NA |
2 |
14 |
positive |
Heart_Atrial_Appendage |

TMA7 COT2_HUMAN.H11MO.1.A
| 2 |
TMA7 |
ENSG00000232112 |
3_48479207_C_T_b37 |
3_48481647_G_A_b37 |
0.9998 |
SP1_HUMAN.H11MO.0.A |
NA |
2 |
22 |
positive |
Heart_Atrial_Appendage |

PDIA2 MA0512.2
| 3 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.1.A |
NA |
8 |
14 |
negative |
Heart_Atrial_Appendage |

PDIA2 MA0677.1
| 4 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.0.A |
NA |
8 |
22 |
negative |
Heart_Atrial_Appendage |

PDIA2 SP1_HUMAN.H11MO.1.A
| 5 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.0.A |
NA |
15 |
22 |
negative |
Heart_Atrial_Appendage |

PDIA2 SP1_HUMAN.H11MO.1.A
| 6 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.0.A |
NA |
2 |
22 |
negative |
Heart_Atrial_Appendage |

PDIA2 SP1_HUMAN.H11MO.0.A
| 7 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.0.A |
NA |
17 |
22 |
negative |
Heart_Atrial_Appendage |

PDIA2 SP1_HUMAN.H11MO.0.A
| 8 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.0.A |
NA |
13 |
22 |
negative |
Heart_Atrial_Appendage |

PRKCA MEF2A_HUMAN.H11MO.0.A
| 9 |
PRKCA |
ENSG00000154229 |
17_64315205_A_C_b37 |
17_64298682_G_A_b37 |
0.8253 |
SP1_HUMAN.H11MO.0.A |
NA |
21 |
22 |
positive |
Heart_Atrial_Appendage |

PRKCA SP1_HUMAN.H11MO.0.A
| 10 |
PRKCA |
ENSG00000154229 |
17_64315205_A_C_b37 |
17_64298682_G_A_b37 |
0.8253 |
SP1_HUMAN.H11MO.0.A |
NA |
16 |
22 |
negative |
Heart_Atrial_Appendage |

RAB40B SP1_HUMAN.H11MO.0.A
| 11 |
RAB40B |
ENSG00000141542 |
17_80645286_C_G_b37 |
17_80656616_T_G_b37 |
0.5002 |
SP1_HUMAN.H11MO.0.A |
NA |
22 |
22 |
negative |
Heart_Atrial_Appendage |

RAB40B SP1_HUMAN.H11MO.1.A
| 12 |
RAB40B |
ENSG00000141542 |
17_80645286_C_G_b37 |
17_80656616_T_G_b37 |
0.5002 |
SP1_HUMAN.H11MO.0.A |
NA |
12 |
22 |
negative |
Heart_Atrial_Appendage |

RAB40B SP1_HUMAN.H11MO.0.A
| 13 |
RAB40B |
ENSG00000141542 |
17_80645286_C_G_b37 |
17_80656616_T_G_b37 |
0.5002 |
SP1_HUMAN.H11MO.0.A |
NA |
17 |
22 |
negative |
Heart_Atrial_Appendage |

RAB40B SP1_HUMAN.H11MO.0.A
| 14 |
RAB40B |
ENSG00000141542 |
17_80645286_C_G_b37 |
17_80656616_T_G_b37 |
0.5002 |
SP1_HUMAN.H11MO.1.A |
NA |
12 |
14 |
negative |
Heart_Atrial_Appendage |

SIPA1L3 SP1_HUMAN.H11MO.0.A
| 15 |
SIPA1L3 |
ENSG00000105738 |
19_38670754_C_T_b37 |
19_38664097_C_T_b37 |
0.9999 |
SP1_HUMAN.H11MO.0.A |
NA |
14 |
22 |
negative |
Heart_Atrial_Appendage |

SIPA1L3 SP1_HUMAN.H11MO.0.A
| 16 |
SIPA1L3 |
ENSG00000105738 |
19_38670754_C_T_b37 |
19_38664097_C_T_b37 |
0.9999 |
SP1_HUMAN.H11MO.0.A |
NA |
18 |
22 |
positive |
Heart_Atrial_Appendage |

CCDC157 SP1_HUMAN.H11MO.0.A
| 17 |
CCDC157 |
ENSG00000187860 |
22_30765502_G_A_b37 |
22_30752942_C_A_b37 |
0.9667 |
SP1_HUMAN.H11MO.0.A |
NA |
8 |
22 |
negative |
Heart_Atrial_Appendage |

CCDC157 SP1_HUMAN.H11MO.0.A
| 18 |
CCDC157 |
ENSG00000187860 |
22_30765502_G_A_b37 |
22_30752942_C_A_b37 |
0.9667 |
SP1_HUMAN.H11MO.0.A |
NA |
2 |
22 |
negative |
Heart_Atrial_Appendage |

TMA7 SP1_HUMAN.H11MO.0.A
| 19 |
TMA7 |
ENSG00000232112 |
3_48479207_C_T_b37 |
3_48481647_G_A_b37 |
0.9998 |
MA0079.3 |
SP1 |
11 |
11 |
negative |
Heart_Atrial_Appendage |

PDIA2 SP1_HUMAN.H11MO.1.A
| 20 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
MA0079.3 |
SP1 |
5 |
11 |
positive |
Heart_Atrial_Appendage |

WDR59 SP1_HUMAN.H11MO.0.A
| 21 |
WDR59 |
ENSG00000103091 |
16_74937232_T_A_b37 |
16_74938857_G_A_b37 |
0.5144 |
MA0512.2 |
Rxra |
13 |
14 |
negative |
Heart_Left_Ventricle |

TMA7 SP1_HUMAN.H11MO.0.A
| 22 |
TMA7 |
ENSG00000232112 |
3_48479207_C_T_b37 |
3_48481647_G_A_b37 |
0.9998 |
SP1_HUMAN.H11MO.1.A |
NA |
2 |
14 |
positive |
Heart_Left_Ventricle |

TMA7 SP1_HUMAN.H11MO.0.A
| 23 |
TMA7 |
ENSG00000232112 |
3_48479207_C_T_b37 |
3_48481647_G_A_b37 |
0.9998 |
SP1_HUMAN.H11MO.0.A |
NA |
2 |
22 |
positive |
Heart_Left_Ventricle |

PDIA2 SP1_HUMAN.H11MO.0.A
| 24 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.1.A |
NA |
8 |
14 |
negative |
Heart_Left_Ventricle |

PDIA2 SP1_HUMAN.H11MO.0.A
| 25 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.0.A |
NA |
8 |
22 |
negative |
Heart_Left_Ventricle |

PDIA2 SP1_HUMAN.H11MO.0.A
| 26 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.0.A |
NA |
15 |
22 |
negative |
Heart_Left_Ventricle |

PDIA2 SP1_HUMAN.H11MO.0.A
| 27 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.0.A |
NA |
2 |
22 |
negative |
Heart_Left_Ventricle |

PDIA2 SP1_HUMAN.H11MO.0.A
| 28 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.0.A |
NA |
17 |
22 |
negative |
Heart_Left_Ventricle |

PDIA2 SP1_HUMAN.H11MO.0.A
| 29 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.0.A |
NA |
13 |
22 |
negative |
Heart_Left_Ventricle |

PRKCA SP1_HUMAN.H11MO.0.A
| 30 |
PRKCA |
ENSG00000154229 |
17_64315205_A_C_b37 |
17_64298682_G_A_b37 |
0.7719 |
SP1_HUMAN.H11MO.0.A |
NA |
21 |
22 |
positive |
Heart_Left_Ventricle |

PRKCA SP1_HUMAN.H11MO.0.A
| 31 |
PRKCA |
ENSG00000154229 |
17_64315205_A_C_b37 |
17_64298682_G_A_b37 |
0.7719 |
SP1_HUMAN.H11MO.0.A |
NA |
16 |
22 |
negative |
Heart_Left_Ventricle |

RAB40B SP1_HUMAN.H11MO.0.A
| 32 |
RAB40B |
ENSG00000141542 |
17_80645286_C_G_b37 |
17_80656616_T_G_b37 |
0.5906 |
SP1_HUMAN.H11MO.0.A |
NA |
22 |
22 |
negative |
Heart_Left_Ventricle |

RAB40B SP1_HUMAN.H11MO.1.A
| 33 |
RAB40B |
ENSG00000141542 |
17_80645286_C_G_b37 |
17_80656616_T_G_b37 |
0.5906 |
SP1_HUMAN.H11MO.0.A |
NA |
12 |
22 |
negative |
Heart_Left_Ventricle |

RAB40B SP1_HUMAN.H11MO.0.A
| 34 |
RAB40B |
ENSG00000141542 |
17_80645286_C_G_b37 |
17_80656616_T_G_b37 |
0.5906 |
SP1_HUMAN.H11MO.0.A |
NA |
17 |
22 |
negative |
Heart_Left_Ventricle |

RAB40B SP1_HUMAN.H11MO.1.A
| 35 |
RAB40B |
ENSG00000141542 |
17_80645286_C_G_b37 |
17_80656616_T_G_b37 |
0.5906 |
SP1_HUMAN.H11MO.1.A |
NA |
12 |
14 |
negative |
Heart_Left_Ventricle |

SIPA1L3 SP1_HUMAN.H11MO.0.A
| 36 |
SIPA1L3 |
ENSG00000105738 |
19_38670754_C_T_b37 |
19_38664097_C_T_b37 |
0.9999 |
SP1_HUMAN.H11MO.0.A |
NA |
14 |
22 |
negative |
Heart_Left_Ventricle |

SIPA1L3 SP1_HUMAN.H11MO.1.A
| 37 |
SIPA1L3 |
ENSG00000105738 |
19_38670754_C_T_b37 |
19_38664097_C_T_b37 |
0.9999 |
SP1_HUMAN.H11MO.0.A |
NA |
18 |
22 |
positive |
Heart_Left_Ventricle |

CCDC157 SP1_HUMAN.H11MO.0.A
| 38 |
CCDC157 |
ENSG00000187860 |
22_30765502_G_A_b37 |
22_30752942_C_A_b37 |
0.9617 |
SP1_HUMAN.H11MO.0.A |
NA |
8 |
22 |
negative |
Heart_Left_Ventricle |

CCDC157 SP1_HUMAN.H11MO.1.A
| 39 |
CCDC157 |
ENSG00000187860 |
22_30765502_G_A_b37 |
22_30752942_C_A_b37 |
0.9617 |
SP1_HUMAN.H11MO.0.A |
NA |
2 |
22 |
negative |
Heart_Left_Ventricle |

TMA7 SP1_HUMAN.H11MO.1.A
| 40 |
TMA7 |
ENSG00000232112 |
3_48479207_C_T_b37 |
3_48481647_G_A_b37 |
0.9998 |
MA0079.3 |
SP1 |
11 |
11 |
negative |
Heart_Left_Ventricle |

PDIA2 SP1_HUMAN.H11MO.0.A
| 41 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
MA0079.3 |
SP1 |
5 |
11 |
positive |
Heart_Left_Ventricle |

TMA7 SP1_HUMAN.H11MO.0.A
| 42 |
TMA7 |
ENSG00000232112 |
3_48479207_C_T_b37 |
3_48481647_G_A_b37 |
0.9999 |
SP1_HUMAN.H11MO.1.A |
NA |
2 |
14 |
positive |
Muscle_Skeletal |

TMA7 SP1_HUMAN.H11MO.0.A
| 43 |
TMA7 |
ENSG00000232112 |
3_48479207_C_T_b37 |
3_48481647_G_A_b37 |
0.9999 |
SP1_HUMAN.H11MO.0.A |
NA |
2 |
22 |
positive |
Muscle_Skeletal |

PDIA2 SP1_HUMAN.H11MO.1.A
| 44 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.1.A |
NA |
8 |
14 |
negative |
Muscle_Skeletal |

PDIA2 SP1_HUMAN.H11MO.0.A
| 45 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.0.A |
NA |
8 |
22 |
negative |
Muscle_Skeletal |

PDIA2 SP1_HUMAN.H11MO.0.A
| 46 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.0.A |
NA |
15 |
22 |
negative |
Muscle_Skeletal |

PDIA2 SP1_HUMAN.H11MO.0.A
| 47 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.0.A |
NA |
2 |
22 |
negative |
Muscle_Skeletal |

PDIA2 SP1_HUMAN.H11MO.0.A
| 48 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.0.A |
NA |
17 |
22 |
negative |
Muscle_Skeletal |

PDIA2 SP1_HUMAN.H11MO.0.A
| 49 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
SP1_HUMAN.H11MO.0.A |
NA |
13 |
22 |
negative |
Muscle_Skeletal |

PRKCA SP1_HUMAN.H11MO.1.A
| 50 |
PRKCA |
ENSG00000154229 |
17_64315205_A_C_b37 |
17_64298682_G_A_b37 |
0.7876 |
SP1_HUMAN.H11MO.0.A |
NA |
21 |
22 |
positive |
Muscle_Skeletal |

PRKCA SP1_HUMAN.H11MO.0.A
| 51 |
PRKCA |
ENSG00000154229 |
17_64315205_A_C_b37 |
17_64298682_G_A_b37 |
0.7876 |
SP1_HUMAN.H11MO.0.A |
NA |
16 |
22 |
negative |
Muscle_Skeletal |

RAB40B SP1_HUMAN.H11MO.0.A
| 52 |
RAB40B |
ENSG00000141542 |
17_80645286_C_G_b37 |
17_80656616_T_G_b37 |
0.5207 |
SP1_HUMAN.H11MO.0.A |
NA |
22 |
22 |
negative |
Muscle_Skeletal |

RAB40B SP1_HUMAN.H11MO.0.A
| 53 |
RAB40B |
ENSG00000141542 |
17_80645286_C_G_b37 |
17_80656616_T_G_b37 |
0.5207 |
SP1_HUMAN.H11MO.0.A |
NA |
12 |
22 |
negative |
Muscle_Skeletal |

RAB40B SP1_HUMAN.H11MO.0.A
| 54 |
RAB40B |
ENSG00000141542 |
17_80645286_C_G_b37 |
17_80656616_T_G_b37 |
0.5207 |
SP1_HUMAN.H11MO.0.A |
NA |
17 |
22 |
negative |
Muscle_Skeletal |

RAB40B SP1_HUMAN.H11MO.1.A
| 55 |
RAB40B |
ENSG00000141542 |
17_80645286_C_G_b37 |
17_80656616_T_G_b37 |
0.5207 |
SP1_HUMAN.H11MO.1.A |
NA |
12 |
14 |
negative |
Muscle_Skeletal |

SIPA1L3 SP1_HUMAN.H11MO.0.A
| 56 |
SIPA1L3 |
ENSG00000105738 |
19_38670754_C_T_b37 |
19_38664097_C_T_b37 |
0.9995 |
SP1_HUMAN.H11MO.0.A |
NA |
14 |
22 |
negative |
Muscle_Skeletal |

SIPA1L3 SP1_HUMAN.H11MO.0.A
| 57 |
SIPA1L3 |
ENSG00000105738 |
19_38670754_C_T_b37 |
19_38664097_C_T_b37 |
0.9995 |
SP1_HUMAN.H11MO.0.A |
NA |
18 |
22 |
positive |
Muscle_Skeletal |

CCDC157 SP1_HUMAN.H11MO.1.A
| 58 |
CCDC157 |
ENSG00000187860 |
22_30765502_G_A_b37 |
22_30752942_C_A_b37 |
0.9702 |
SP1_HUMAN.H11MO.0.A |
NA |
8 |
22 |
negative |
Muscle_Skeletal |

CCDC157 SP1_HUMAN.H11MO.0.A
| 59 |
CCDC157 |
ENSG00000187860 |
22_30765502_G_A_b37 |
22_30752942_C_A_b37 |
0.9702 |
SP1_HUMAN.H11MO.0.A |
NA |
2 |
22 |
negative |
Muscle_Skeletal |

TMA7 SP1_HUMAN.H11MO.0.A
| 60 |
TMA7 |
ENSG00000232112 |
3_48479207_C_T_b37 |
3_48481647_G_A_b37 |
0.9999 |
MA0079.3 |
SP1 |
11 |
11 |
negative |
Muscle_Skeletal |

PDIA2 SP1_HUMAN.H11MO.1.A
| 61 |
PDIA2 |
ENSG00000185615 |
16_333146_C_T_b37 |
16_333146_C_T_b37 |
1 |
MA0079.3 |
SP1 |
5 |
11 |
positive |
Muscle_Skeletal |
